home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_vdioutpu.def < prev    next >
Text File  |  1988-04-26  |  2KB  |  82 lines
  1. DEFINITION MODULE VDIOutputs;
  2.  
  3.  
  4. FROM GEMVDIbase IMPORT PxyArrayType;
  5.  
  6.  
  7.  
  8. PROCEDURE PolyLine (Handle, Count: INTEGER;
  9.                     VAR PxyArray : ARRAY OF INTEGER);
  10.  
  11. (* display a polyline on graphics display *)
  12.  
  13.  
  14. PROCEDURE PolyMarker (Handle, Count: INTEGER;
  15.                       VAR PxyArray : ARRAY OF INTEGER);
  16.  
  17. (* draw markers at points specified *)
  18.  
  19.  
  20. PROCEDURE GraphicText (Handle, x, y: INTEGER; VAR string: ARRAY OF CHAR);
  21.  
  22. (* write text to display surface *)
  23.  
  24.  
  25. PROCEDURE FillArea (Handle, Count: INTEGER;
  26.                     VAR PxyArray: ARRAY OF INTEGER);
  27.  
  28. (* fill a complex polygon *)
  29.  
  30.  
  31. PROCEDURE CellArray (Handle  : INTEGER;
  32.                       VAR PxyArray: PxyArrayType;
  33.                           RowLength, ElUsed, NumRows, WrtMode: INTEGER;
  34.                       VAR ColArray: ARRAY OF INTEGER);
  35.  
  36. (* bit tricky to explain ... see documentation *)
  37.  
  38.  
  39. PROCEDURE ContourFill (Handle, x, y, index: INTEGER);
  40.  
  41. (* fill an area *)
  42.  
  43.  
  44. PROCEDURE FillRectangle (Handle: INTEGER; VAR PxyArray: PxyArrayType);
  45.  
  46. (* fill rectangle *)
  47.  
  48.  
  49. (* generalised drawing primitives *)
  50.  
  51. PROCEDURE DrawBar (Handle: INTEGER; VAR PxyArray: PxyArrayType);
  52.  
  53. PROCEDURE DrawArc (Handle, x, y, Radius, BegAng, EndAng: INTEGER);
  54.  
  55. PROCEDURE DrawPieSlice (Handle, x, y, Radius, BegAng, EndAng: INTEGER);
  56.  
  57. PROCEDURE DrawCircle (Handle, x, y, Radius: INTEGER);
  58.  
  59. PROCEDURE DrawEllipticalArc (Handle, x, y,
  60.                              xRadius, yRadius, BegAng, EndAng: INTEGER);
  61.  
  62. PROCEDURE DrawEllipticalPie (Handle, x, y,
  63.                              xRadius, yRadius, BegAng, EndAng: INTEGER);
  64.  
  65. PROCEDURE DrawEllipse (Handle, x, y, xRadius, yRadius: INTEGER);
  66.  
  67. PROCEDURE DrawRoundedBox (Handle: INTEGER; VAR xyArray: PxyArrayType);
  68.  
  69. PROCEDURE DrawRoundedFilledBox (Handle: INTEGER;
  70.                                 VAR xyArray: PxyArrayType);
  71.  
  72.  
  73. (* justified graphics text *)
  74.  
  75. PROCEDURE JustifiedText (Handle, x, y: INTEGER;
  76.                          VAR String: ARRAY OF CHAR;
  77.                              Length, WordSpace, CharSpace: INTEGER);
  78.  
  79. (* output text both left and right justified *)
  80.  
  81. END VDIOutputs.
  82.